home *** CD-ROM | disk | FTP | other *** search
/ BBS in a Box 3 / BBS in a box - Trilogy III.iso / Files / Tele / S / Son Of Sysopƒ1.2 / Visitor < prev   
Encoding:
Text File  |  1991-09-13  |  2.0 KB  |  73 lines  |  [TEXT/QED1]
  1. ; This is the VISITOR script for Mansion
  2. ; This script is designed for use with Son Of Sysop.
  3. ; Forced Register & NewUserLog Script -- Mark Toland -- 1:290/2
  4. ; This script Forces the new user to register after they have started the process.
  5. ; It also will record new user info to the file contained in &10
  6. ; The Newnamelist file is used with the NewUserMessage option of Son of Sysop.
  7. ; The path for this filename is &11.  You MUST edit this variable.
  8. ; You must also edit the path for the newnamelist found towards the end of this script!
  9. MOVE BBS:BBS 1.1:SOSNEWMAN:NEWUSERLOG,&10
  10. /TRYAGAIN
  11. PRINT Welcome!
  12. PRINT After answering the following few questions you will have
  13. PRINT access to read and scan some of the message areas.
  14. PRINT |You will not be able to post or enter the libraries until
  15. PRINT your application has been reviewed.  Answer everything
  16. PRINT correctly and I'll get you validated by tomarrow at the
  17. PRINT latest.  Looking forward to having you here!
  18. ;
  19. COMMANDR 12,0
  20. IFV @USERID,<,1
  21.      REVERSE /TRYAGAIN
  22. ENDIF
  23. PRINT Just a moment while I record your new user stats...
  24. PRINT |
  25. ; USER HAS A VALID ID, LOAD HIS USER INFO NOW.
  26. MOVE @LIMIT,&50
  27. LOADUSERINFO
  28. LIMIT &50
  29. EXISTS &10,&1
  30. OUTPUT &10
  31. ;Write newuser info to &10. You can change/format all this info as you like.
  32. IFV &1,=,0
  33.     WRITE New User Report
  34.     APPEND ---------------
  35.     APPEND &280
  36.     APPEND &263
  37.     APPEND &261
  38.     APPEND &260
  39.     APPEND &272
  40.     APPEND &257
  41.     APPEND &270
  42.     APPEND &264
  43.     APPEND -----------------------------
  44.      ELSE
  45.     APPEND &280
  46.     APPEND &263
  47.     APPEND &261
  48.     APPEND &260
  49.     APPEND &272
  50.     APPEND &257
  51.     APPEND &270
  52.     APPEND &264
  53.     APPEND -----------------------------
  54. ENDIF
  55. CLOSE
  56. ; The following is for the NewnameList. It's format MUST remain as follows in order to work with SOS!
  57. ; Edit the next line as to the path to your SOSNEWMAN folder. The NEWNAMELIST MUST be located
  58. ; in the SOSNEWMAN folder!
  59. MOVE BBS:BBS 1.1:SOSNEWMAN:NEWNAMELIST,&11
  60. PRINT |Welcome!|
  61. EXISTS &11,&1
  62. OUTPUT &11
  63. IFV &1,=,0
  64.     WRITE &280
  65.      ELSE
  66.     APPEND &280
  67. ENDIF
  68. CLOSE
  69. ;
  70. ; ok the user has made it, run the regular logon script
  71. RUN LOGON
  72. END
  73.